CODE SEGMENT
	ASSUME CS:CODE
STRAT:
    MOV AL,10001111B
    MOV DX,213H
    OUT DX,AL
    MOV DX,210H
    MOV AL,00H
    OUT DX,AL
PRE:
    MOV DX,212H
    IN AL,DX
    AND AL,02H
    CMP AL,2
    JNZ PRE
    MOV DX,211H
    IN AL,DX
    AND AL,07H
    MOV CL,AL
    MOV AL,01H
    SHL AL,CL
    MOV DX,210H
    OUT DX,AL
    JMP PRE
    MOV AH,4CH
    INT 21H
CODE ENDS
    END STRAT